home *** CD-ROM | disk | FTP | other *** search
/ Wild Blue Yonder 1: 50 Years of Gs & Jets / Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso / control / panel.dir / 00718_Script_718 < prev    next >
Text File  |  1994-08-29  |  1KB  |  39 lines
  1. on checkAspectMenu
  2.   
  3.   global aspect, aspectLabel, aspectLabelHeight, aspectMenu, ¼
  4.          aspectMenuTop, aspectStartCast, numOfAspLabels, panelDummy, ¼
  5.          plane, planeAndAspect
  6.   
  7.   repeat while rollOver( aspectMenu )
  8.     
  9.     lightAspectLabels( the mouseV, aspectMenuTop, aspectLabel, ¼
  10.                        aspectlabelHeight, aspectStartCast, numOfAspLabels )
  11.     
  12.     if the mouseDown then 
  13.       lightAspectLabels( the mouseV, aspectMenuTop, aspectLabel, ¼
  14.                        aspectlabelHeight, aspectStartCast, numOfAspLabels )
  15.       
  16.       if valid( aspectLabel ) then
  17.         set planeAndAspect = ¼
  18.           the name of cast (the castNum of sprite aspectLabel)
  19.         goNextMovie( planeAndAspect )
  20.       end if
  21.       
  22.     end if
  23.     
  24.     checkambience
  25.     globespin
  26.     
  27.   end repeat
  28.   
  29.   -- Make sure this plane has the default aspect (X1, for example, has
  30.   -- no weapons.  If not, don't light any aspect.
  31.   set checkAspect = the number of cast (plane & aspect)
  32.   if checkAspect > 0 then
  33.     set the castNum of sprite aspectLabel = checkAspect
  34.   else
  35.     set the castNum of sprite aspectLabel = panelDummy
  36.   end if
  37.   
  38. end checkAspectMenu
  39.